home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / tcl.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  936 b   |  39 lines
  1. if (!defined &_TCL) {
  2.     eval 'sub _TCL {1;}';
  3.     if (defined( &USE_ANSI) && defined( &__STDC__)) {
  4.     eval 'sub _ANSI_ARGS_ {
  5.         local($x) = @_;
  6.         eval "$x";
  7.     }';
  8.     }
  9.     else {
  10.     eval 'sub _ANSI_ARGS_ {
  11.         local($x) = @_;
  12.         eval "()";
  13.     }';
  14.     eval 'sub const {1;}';
  15.     }
  16.     if (!defined &NULL) {
  17.     eval 'sub NULL {0;}';
  18.     }
  19.     if (!defined &_CLIENTDATA) {
  20.     eval 'sub _CLIENTDATA {1;}';
  21.     }
  22.     eval 'sub TCL_OK {0;}';
  23.     eval 'sub TCL_ERROR {1;}';
  24.     eval 'sub TCL_RETURN {2;}';
  25.     eval 'sub TCL_BREAK {3;}';
  26.     eval 'sub TCL_CONTINUE {4;}';
  27.     eval 'sub TCL_RESULT_SIZE {199;}';
  28.     eval 'sub TCL_BRACKET_TERM {1;}';
  29.     eval 'sub TCL_NO_EVAL {-1;}';
  30.     eval 'sub TCL_STATIC {0;}';
  31.     eval 'sub TCL_DYNAMIC {1;}';
  32.     eval 'sub TCL_VOLATILE {2;}';
  33.     eval 'sub TCL_TRACE_READS {1;}';
  34.     eval 'sub TCL_TRACE_WRITES {2;}';
  35.     eval 'sub TCL_TRACE_DELETES {4;}';
  36.     eval 'sub TCL_VARIABLE_UNDEFINED {8;}';
  37. }
  38. 1;
  39.